home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-05
/
pcprl11.zip
/
SKEL.PLS
< prev
next >
Wrap
Text File
|
1992-02-06
|
341b
|
36 lines
program ;
{$N+,E+,F+}
uses both, work;
procedure start_up;
begin
exitsave := exitproc;
exitproc := @myexit;
master[1] := $00;
master[2] := $00;
master[3] := $C0;
master[4] := $05;
master[5] := $86;
master[6] := $24;
init_system;
end;
begin
start_up;
close_system
end.